;Standalone tool for setting modifier in CLG layernames.  (uses USTR MKLAYR)
(defun setmodf ( )
  (setq modf (ustr 0 "\nEnter Modifier Group Code " modf nil))
  (setq curlset (strcat (if mjrg mjrg "?")(if llt llt "-")(if prod prod "????")(if colra colra (if colr colr "?"))(if modf modf "")))
  (eval curlset)
);defun

